home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / pie_oro1.zip / CONFIG.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-10  |  10KB  |  559 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  TINTEGER001(4)
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  TINTEGER007(2)
  23.     Integer  INTEGER008
  24.     Integer  INTEGER009
  25.     Integer  INTEGER010
  26.     Integer  INTEGER011
  27.     Integer  INTEGER015
  28.     String   STRING001
  29.     String   STRING002
  30.     String   TSTRING003(8)
  31.     String   TSTRING004(8)
  32.     String   STRING005
  33.     String   STRING012
  34.     String   STRING013
  35.     String   TSTRING014(2)
  36.     String   STRING015
  37.     String   STRING021
  38.     Declare  Function FUNCTION001(String STRING006, String STRING007, String STRING008, Integer INTEGER004, Integer INTEGER005, Integer INTEGER006, String STRING009, String STRING010, String STRING011) String
  39.     Declare  Procedure PROC001(Integer INTEGER012, Integer INTEGER013, String STRING016, Integer INTEGER014, String STRING017, String STRING018, String STRING019, String STRING020)
  40.  
  41. ;------------------------------------------------------------------------------
  42.  
  43.     STRING001 = ""
  44.     TINTEGER001(1) = 8
  45.     TINTEGER001(2) = 8
  46.     TINTEGER001(3) = 8
  47.     TINTEGER001(4) = 8
  48.     INTEGER003 = 1
  49.     Gosub LABEL004
  50.     FOpen 1, PPEPath() + "ONELINE.CNF", 2, 0
  51.     FGet 1, TSTRING003(1)
  52.     FGet 1, TSTRING003(2)
  53.     FGet 1, TSTRING003(3)
  54.     FGet 1, TSTRING003(4)
  55.     FGet 1, TSTRING003(5)
  56.     FGet 1, TSTRING003(6)
  57.     FGet 1, TSTRING003(7)
  58.     FGet 1, TSTRING003(8)
  59.     FClose 1
  60.     AnsiPos 7, 13
  61.     Print "@X0F[ CONFIG PPE: USE UP/DOWN TO SELECT ]"
  62.     :LABEL001
  63.     STRING002 = Inkey()
  64.     If (STRING002 == "") Goto LABEL001
  65.     If (STRING002 == "UP") Goto LABEL003
  66.     If (STRING002 == "DOWN") Goto LABEL002
  67.     If (STRING002 == Chr(27)) Goto LABEL006
  68.     If (STRING002 == Chr(13)) Goto LABEL005
  69.     Goto LABEL001
  70.     :LABEL002
  71.     If (INTEGER003 > 7) Goto LABEL001
  72.     AnsiPos 10, 13 + INTEGER003
  73.     Print "@X07" + TSTRING004(INTEGER003)
  74.     Inc INTEGER003
  75.     AnsiPos 10, 13 + INTEGER003
  76.     Print "@X17" + TSTRING004(INTEGER003) + "@X07"
  77.     Goto LABEL001
  78.     :LABEL003
  79.     If (INTEGER003 < 2) Goto LABEL001
  80.     AnsiPos 10, 13 + INTEGER003
  81.     Print "@X07" + TSTRING004(INTEGER003)
  82.     Dec INTEGER003
  83.     AnsiPos 10, 13 + INTEGER003
  84.     Print "@X17" + TSTRING004(INTEGER003) + "@X07"
  85.     Goto LABEL001
  86.     :LABEL004
  87.     TSTRING004(1) = " MINIMUM SECURITY TO SEE LINES "
  88.     TSTRING004(2) = "   SYSOP SECURITY FOR CONFIG   "
  89.     TSTRING004(3) = " STRING TO DISPLAY WHEN NUKING "
  90.     TSTRING004(4) = "   THE LOW AXX TO SEE STRING   "
  91.     TSTRING004(5) = "  THE COLOR FOR LIGHTBAR NR.1  "
  92.     TSTRING004(6) = "  THE COLOR FOR LIGHTBAR NR.2  "
  93.     TSTRING004(7) = "  THE COLOR FOR LIGHTBAR NR.3  "
  94.     TSTRING004(8) = "  THE COLOR FOR LIGHTBAR NR.4  "
  95.     AnsiPos 10, 14
  96.     Print "@X17" + TSTRING004(1) + "@X07"
  97.     AnsiPos 10, 15
  98.     Print "@X07" + TSTRING004(2) + "@X07"
  99.     AnsiPos 10, 16
  100.     Print "@X07" + TSTRING004(3) + "@X07"
  101.     AnsiPos 10, 17
  102.     Print "@X07" + TSTRING004(4) + "@X07"
  103.     AnsiPos 10, 18
  104.     Print "@X07" + TSTRING004(5) + "@X07"
  105.     AnsiPos 10, 19
  106.     Print "@X07" + TSTRING004(6) + "@X07"
  107.     AnsiPos 10, 20
  108.     Print "@X07" + TSTRING004(7) + "@X07"
  109.     AnsiPos 10, 21
  110.     Print "@X07" + TSTRING004(7) + "@X07"
  111.     Return
  112.     :LABEL005
  113.     If (INTEGER003 == 1) Goto LABEL009
  114.     If (INTEGER003 == 2) Goto LABEL010
  115.     If (INTEGER003 == 3) Goto LABEL011
  116.     If (INTEGER003 == 4) Goto LABEL012
  117.     If (INTEGER003 == 5) STRING005 = 1
  118.     If (INTEGER003 == 5) Goto LABEL013
  119.     If (INTEGER003 == 6) STRING005 = 2
  120.     If (INTEGER003 == 6) Goto LABEL013
  121.     If (INTEGER003 == 7) STRING005 = 3
  122.     If (INTEGER003 == 7) Goto LABEL013
  123.     If (INTEGER003 == 8) STRING005 = 4
  124.     If (INTEGER003 == 8) Goto LABEL013
  125.     :LABEL006
  126.     AnsiPos 20, 16
  127.     Print "@X08╔═══════════╗ "
  128.     AnsiPos 20, 17
  129.     Print "@X08║ SAVE? y/N ║ "
  130.     AnsiPos 20, 18
  131.     Print "@X08╚═══════════╝ "
  132.     :LABEL007
  133.     STRING002 = Inkey()
  134.     If (STRING002 == "") Goto LABEL007
  135.     If ((STRING002 == "y") || (STRING002 == "Y")) Goto LABEL019
  136.     If ((STRING002 == "n") || (STRING002 == "N")) Goto LABEL008
  137.     If (STRING002 == Chr(13)) Goto LABEL008
  138.     If (STRING002 == Chr(27)) Goto LABEL008
  139.     Goto LABEL007
  140.     :LABEL008
  141.     End
  142.     :LABEL009
  143.     AnsiPos 10, 14
  144.     Color 7
  145.     Print "                                    "
  146.     TSTRING003(1) = FUNCTION001("[", "]", "·", 12, 14, 3, 8, 7, Mask_Num())
  147.     AnsiPos 10, 14
  148.     Print "@X17" + TSTRING004(1)
  149.     Goto LABEL001
  150.     :LABEL010
  151.     AnsiPos 10, 15
  152.     Color 7
  153.     Print "                                    "
  154.     TSTRING003(2) = FUNCTION001("[", "]", "·", 12, 15, 3, 8, 7, Mask_Num())
  155.     AnsiPos 10, 15
  156.     Print "@X17" + TSTRING004(2)
  157.     Goto LABEL001
  158.     :LABEL011
  159.     AnsiPos 10, 16
  160.     Color 7
  161.     Print "                                       "
  162.     TSTRING003(3) = FUNCTION001("[", "]", "·", 11, 16, 35, 8, 7, "")
  163.     AnsiPos 10, 16
  164.     Color 7
  165.     Print "                                       "
  166.     AnsiPos 10, 16
  167.     Print "@X17" + TSTRING004(3)
  168.     Goto LABEL001
  169.     :LABEL012
  170.     AnsiPos 10, 17
  171.     Color 7
  172.     Print "                                       "
  173.     TSTRING003(4) = FUNCTION001("[", "]", "·", 11, 17, 35, 8, 7, "")
  174.     AnsiPos 10, 17
  175.     Color 7
  176.     Print "                                       "
  177.     AnsiPos 10, 17
  178.     Print "@X17" + TSTRING004(4)
  179.     Goto LABEL001
  180.     :LABEL013
  181.     AnsiPos 10, 18
  182.     Color 7
  183.     Print "                                       "
  184.     AnsiPos 10, 19
  185.     Color 7
  186.     Print "                                       "
  187.     AnsiPos 10, 20
  188.     Color 7
  189.     Print "                                       "
  190.     AnsiPos 10, 21
  191.     Color 7
  192.     Print "                                       "
  193.     AnsiPos 10, 18
  194.     Print "@X08COLOR SETUP: USE UP/DOWN TO SELECT "
  195.     AnsiPos 10, 19
  196.     Print "  @X08CURRENT:        " + TSTRING003(5) + "T" + TSTRING003(6) + "E" + TSTRING003(7) + "S" + TSTRING003(8) + "T" + TSTRING003(7) + "I" + TSTRING003(6) + "N" + TSTRING003(5) + "G"
  197.     AnsiPos 10, 20
  198.     Print "  @X08YOUR:           "
  199.     Color TINTEGER001(1)
  200.     Print "T"
  201.     Color TINTEGER001(2)
  202.     Print "E"
  203.     Color TINTEGER001(3)
  204.     Print "S"
  205.     Color TINTEGER001(4)
  206.     Print "T"
  207.     Color TINTEGER001(3)
  208.     Print "I"
  209.     Color TINTEGER001(2)
  210.     Print "N"
  211.     Color TINTEGER001(1)
  212.     Print "G"
  213.     :LABEL014
  214.     STRING002 = Inkey()
  215.     If (STRING002 == "") Goto LABEL014
  216.     If (STRING002 == "DOWN") Goto LABEL016
  217.     If (STRING002 == "UP") Goto LABEL015
  218.     If (STRING002 == Chr(13)) Goto LABEL018
  219.     If (STRING002 == Chr(27)) Goto LABEL018
  220.     Goto LABEL014
  221.     :LABEL015
  222.     If (TINTEGER001(STRING005) > 14) Goto LABEL014
  223.     Inc TINTEGER001(STRING005)
  224.     Gosub LABEL017
  225.     Goto LABEL014
  226.     :LABEL016
  227.     If (TINTEGER001(STRING005) < 1) Goto LABEL014
  228.     Dec TINTEGER001(STRING005)
  229.     Gosub LABEL017
  230.     Goto LABEL014
  231.     :LABEL017
  232.     AnsiPos 10, 20
  233.     Print "  @X08YOUR:           "
  234.     Color TINTEGER001(1)
  235.     Print "T"
  236.     Color TINTEGER001(2)
  237.     Print "E"
  238.     Color TINTEGER001(3)
  239.     Print "S"
  240.     Color TINTEGER001(4)
  241.     Print "T"
  242.     Color TINTEGER001(3)
  243.     Print "I"
  244.     Color TINTEGER001(2)
  245.     Print "N"
  246.     Color TINTEGER001(1)
  247.     Print "G"
  248.     Return
  249.     :LABEL018
  250.     AnsiPos 10, 18
  251.     Color 7
  252.     Print "                                     "
  253.     AnsiPos 10, 19
  254.     Color 7
  255.     Print "                                     "
  256.     AnsiPos 10, 20
  257.     Color 7
  258.     Print "                                     "
  259.     AnsiPos 10, 21
  260.     Color 7
  261.     Print "                                     "
  262.     AnsiPos 10, 18
  263.     AnsiPos 10, 18
  264.     Color 23
  265.     Print TSTRING004(5)
  266.     AnsiPos 10, 19
  267.     Color 7
  268.     Print TSTRING004(6)
  269.     AnsiPos 10, 20
  270.     Color 7
  271.     Print TSTRING004(7)
  272.     AnsiPos 10, 21
  273.     Color 7
  274.     Print TSTRING004(8)
  275.     INTEGER003 = 5
  276.     Goto LABEL001
  277.     :LABEL019
  278.     INTEGER002 = 1
  279.     Gosub LABEL020
  280.     AnsiPos 22, 17
  281.     Print " SAVING! "
  282.     FOpen 1, PPEPath() + "ONELINE.CNF", 2, 0
  283.     FPutLn 1, TSTRING003(1)
  284.     FPutLn 1, TSTRING003(2)
  285.     FPutLn 1, TSTRING003(3)
  286.     FPutLn 1, TSTRING003(4)
  287.     FPutLn 1, TSTRING003(5)
  288.     FPutLn 1, TSTRING003(6)
  289.     FPutLn 1, TSTRING003(7)
  290.     FPutLn 1, TSTRING003(8)
  291.     FPutLn 1, "@X08"
  292.     FPutLn 1, "@X78"
  293.     FPutLn 1, "------------------------------------------------"
  294.     FPutLn 1, " ONELINE.CNF - the main ppe config file."
  295.     FPutLn 1, "------------------------------------------------"
  296.     FPutLn 1, " Line 1: Minimum securaty for users to see lines."
  297.     FPutLn 1, " Line 2: Sysop securaty, (if user sec > line 2) then they can nuke."
  298.     FPutLn 1, " Line 3: The nuke string."
  299.     FPutLn 1, " Line 4: The lowaxx string."
  300.     FPutLn 1, " Line 5-8: Colors in lightbars"
  301.     FPutLn 1, " Line 9-10: The sliding lightbar color."
  302.     FClose 1
  303.     Goto LABEL008
  304.     :LABEL020
  305.     If (TINTEGER001(INTEGER002) == 1) TSTRING003(4 + INTEGER002) = "@X01"
  306.     If (TINTEGER001(INTEGER002) == 2) TSTRING003(4 + INTEGER002) = "@X02"
  307.     If (TINTEGER001(INTEGER002) == 3) TSTRING003(4 + INTEGER002) = "@X03"
  308.     If (TINTEGER001(INTEGER002) == 4) TSTRING003(4 + INTEGER002) = "@X04"
  309.     If (TINTEGER001(INTEGER002) == 5) TSTRING003(4 + INTEGER002) = "@X05"
  310.     If (TINTEGER001(INTEGER002) == 6) TSTRING003(4 + INTEGER002) = "@X06"
  311.     If (TINTEGER001(INTEGER002) == 7) TSTRING003(4 + INTEGER002) = "@X07"
  312.     If (TINTEGER001(INTEGER002) == 8) TSTRING003(4 + INTEGER002) = "@X08"
  313.     If (TINTEGER001(INTEGER002) == 9) TSTRING003(4 + INTEGER002) = "@X09"
  314.     If (TINTEGER001(INTEGER002) == 10) TSTRING003(4 + INTEGER002) = "@X0A"
  315.     If (TINTEGER001(INTEGER002) == 11) TSTRING003(4 + INTEGER002) = "@X0B"
  316.     If (TINTEGER001(INTEGER002) == 12) TSTRING003(4 + INTEGER002) = "@X0C"
  317.     If (TINTEGER001(INTEGER002) == 13) TSTRING003(4 + INTEGER002) = "@X0D"
  318.     If (TINTEGER001(INTEGER002) == 14) TSTRING003(4 + INTEGER002) = "@X0E"
  319.     If (TINTEGER001(INTEGER002) == 15) TSTRING003(4 + INTEGER002) = "@X0F"
  320.     If (INTEGER002 > 4) Return
  321.     Inc INTEGER002
  322.     Goto LABEL020
  323.     End
  324.  
  325. ;------------------------------------------------------------------------------
  326.  
  327.     Function FUNCTION001(String STRING006, String STRING007, String STRING008, Integer INTEGER004, Integer INTEGER005, Integer INTEGER006, String STRING009, String STRING010, String STRING011) String
  328.  
  329.     String   STRING013
  330.     String   TSTRING014(2)
  331.     String   STRING015
  332.     Integer  TINTEGER007(2)
  333.     Integer  INTEGER008
  334.     Integer  INTEGER009
  335.     Integer  INTEGER010
  336.     Integer  INTEGER011
  337.     Integer  INTEGER012
  338.  
  339.     INTEGER009 = INTEGER005
  340.     INTEGER008 = INTEGER004
  341.     STRING013 = TSTRING014(1) + TSTRING014(2)
  342.     PROC001(INTEGER004, INTEGER005, STRING008, INTEGER006, STRING009, STRING010, STRING006, STRING007)
  343.     Color STRING010
  344.     AnsiPos INTEGER004, INTEGER005
  345.     :LABEL021
  346.     STRING015 = Inkey()
  347.     If (STRING015 == "") Goto LABEL021
  348.     If (STRING015 == Chr(13)) Goto LABEL038
  349.     If (STRING015 == Chr(27)) Goto LABEL038
  350.     If (STRING015 == Chr(8)) Goto LABEL026
  351.     If (STRING015 == "LEFT") Goto LABEL029
  352.     If (STRING015 == "DOWN") Goto LABEL029
  353.     If (STRING015 == "RIGHT") Goto LABEL031
  354.     If (STRING015 == "UP") Goto LABEL031
  355.     If (STRING015 == "HOME") Goto LABEL033
  356.     If (STRING015 == "END") Goto LABEL034
  357.     If (STRING015 == "@") Goto LABEL021
  358.     If (STRING015 == "") Goto LABEL035
  359.     If (STRING015 == "DEL") Goto LABEL035
  360.     STRING015 = Left(STRING015, 1)
  361.     If (INTEGER008 > INTEGER004 + INTEGER006 - 1) Goto LABEL021
  362.     If (INTEGER010 > INTEGER006) Goto LABEL021
  363.     If (STRING015 == " ") Goto LABEL022
  364.     If (STRING011 == "") Goto LABEL022
  365.     INTEGER011 = InStr(STRING011, STRING015)
  366.     If (INTEGER011 == 0) Goto LABEL025
  367.     :LABEL022
  368.     If (TINTEGER007(1) == 1) Goto LABEL023
  369.     TSTRING014(2) = TSTRING014(2) + STRING015
  370.     AnsiPos INTEGER008, INTEGER009
  371.     Print STRING015
  372.     Goto LABEL024
  373.     :LABEL023
  374.     TSTRING014(1) = TSTRING014(1) + STRING015
  375.     AnsiPos INTEGER004, INTEGER009
  376.     Print TSTRING014(1) + TSTRING014(2)
  377.     AnsiPos INTEGER008 + 1, INTEGER009
  378.     :LABEL024
  379.     Inc INTEGER008
  380.     STRING013 = TSTRING014(1) + TSTRING014(2)
  381.     INTEGER010 = Len(TSTRING014(1)) + Len(TSTRING014(2)) + 1
  382.     Goto LABEL021
  383.     :LABEL025
  384.     STRING015 = ""
  385.     INTEGER011 = 0
  386.     Goto LABEL021
  387.     :LABEL026
  388.     If (TINTEGER007(1) == 1) Goto LABEL027
  389.     If (INTEGER008 < INTEGER004 + 1) Goto LABEL021
  390.     TSTRING014(2) = Left(TSTRING014(2), Len(TSTRING014(2)) - 1)
  391.     Dec INTEGER008
  392.     AnsiPos INTEGER008, INTEGER009
  393.     Print STRING008
  394.     AnsiPos INTEGER008, INTEGER009
  395.     INTEGER010 = Len(TSTRING014(1)) + Len(TSTRING014(2)) + 1
  396.     Goto LABEL028
  397.     :LABEL027
  398.     If (INTEGER008 < INTEGER004 + 1) Goto LABEL021
  399.     TSTRING014(1) = Left(TSTRING014(1), Len(TSTRING014(1)) - 1)
  400.     Dec INTEGER008
  401.     AnsiPos INTEGER004, INTEGER009
  402.     Print TSTRING014(1) + TSTRING014(2) + STRING008
  403.     AnsiPos INTEGER008, INTEGER009
  404.     INTEGER010 = Len(TSTRING014(1)) + Len(TSTRING014(2)) + 1
  405.     :LABEL028
  406.     STRING013 = TSTRING014(1) + TSTRING014(2)
  407.     Goto LABEL021
  408.     :LABEL029
  409.     TINTEGER007(1) = 1
  410.     If (INTEGER008 < INTEGER004 + 1) Goto LABEL021
  411.     If (TINTEGER007(2) == 0) TSTRING014(1) = Left(TSTRING014(2), Len(TSTRING014(2)) - 1)
  412.     If (TINTEGER007(2) == 0) TSTRING014(2) = Right(TSTRING014(2), 1)
  413.     If (TINTEGER007(2) == 0) Goto LABEL030
  414.     TSTRING014(2) = Right(TSTRING014(1), 1) + TSTRING014(2)
  415.     TSTRING014(1) = Left(TSTRING014(1), Len(TSTRING014(1)) - 1)
  416.     :LABEL030
  417.     Dec INTEGER008
  418.     AnsiPos INTEGER008, INTEGER005
  419.     If (TINTEGER007(2) == 0) TINTEGER007(2) = 1
  420.     Goto LABEL021
  421.     :LABEL031
  422.     If (INTEGER008 > INTEGER004 + INTEGER006 - 1) Goto LABEL021
  423.     If (TINTEGER007(2) == 0) Goto LABEL032
  424.     TSTRING014(1) = TSTRING014(1) + Left(TSTRING014(2), 1)
  425.     TSTRING014(2) = Right(TSTRING014(2), Len(TSTRING014(2)) - 1)
  426.     If (TSTRING014(2) == "") TINTEGER007(2) = 0
  427.     If (TSTRING014(2) == "") TINTEGER007(1) = 0
  428.     If (TSTRING014(2) == "") TSTRING014(2) = TSTRING014(1)
  429.     If (TSTRING014(2) == TSTRING014(1)) TSTRING014(1) = ""
  430.     Inc INTEGER008
  431.     :LABEL032
  432.     AnsiPos INTEGER008, INTEGER005
  433.     Goto LABEL021
  434.     :LABEL033
  435.     TINTEGER007(1) = 1
  436.     TINTEGER007(2) = 1
  437.     INTEGER008 = INTEGER004
  438.     TSTRING014(2) = TSTRING014(1) + TSTRING014(2)
  439.     TSTRING014(1) = ""
  440.     AnsiPos INTEGER004, INTEGER009
  441.     Goto LABEL021
  442.     :LABEL034
  443.     INTEGER010 = Len(TSTRING014(1)) + Len(TSTRING014(2)) + 1
  444.     INTEGER008 = INTEGER004 + INTEGER010 - 1
  445.     TSTRING014(2) = TSTRING014(1) + TSTRING014(2)
  446.     TSTRING014(1) = ""
  447.     TINTEGER007(2) = 0
  448.     TINTEGER007(1) = 0
  449.     AnsiPos INTEGER008, INTEGER009
  450.     Goto LABEL021
  451.     :LABEL035
  452.     If (TINTEGER007(1) == 1) Goto LABEL036
  453.     If (INTEGER008 < INTEGER004 + 1) Goto LABEL021
  454.     TSTRING014(1) = Right(TSTRING014(1), Len(TSTRING014(1)) - 1)
  455.     AnsiPos INTEGER008, INTEGER009
  456.     Print STRING008
  457.     AnsiPos INTEGER008, INTEGER009
  458.     INTEGER010 = Len(TSTRING014(1)) + Len(TSTRING014(2)) + 1
  459.     Goto LABEL037
  460.     :LABEL036
  461.     If (INTEGER008 < INTEGER004) Goto LABEL021
  462.     TSTRING014(2) = Right(TSTRING014(2), Len(TSTRING014(2)) - 1)
  463.     AnsiPos INTEGER004, INTEGER009
  464.     Print TSTRING014(1) + TSTRING014(2) + STRING008
  465.     AnsiPos INTEGER008, INTEGER009
  466.     INTEGER010 = Len(TSTRING014(1)) + Len(TSTRING014(2)) + 1
  467.     :LABEL037
  468.     STRING013 = TSTRING014(1) + TSTRING014(2)
  469.     Goto LABEL021
  470.     :LABEL038
  471.     FUNCTION001 = STRING013
  472.  
  473.     EndFunc
  474.  
  475.  
  476. ;------------------------------------------------------------------------------
  477.  
  478.     Procedure PROC001(Integer INTEGER012, Integer INTEGER013, String STRING016, Integer INTEGER014, String STRING017, String STRING018, String STRING019, String STRING020)
  479.  
  480.     Integer  INTEGER015
  481.     String   STRING021
  482.  
  483.     :LABEL039
  484.     STRING021 = STRING021 + STRING016
  485.     Inc INTEGER015
  486.     If (INTEGER015 > INTEGER014) Goto LABEL040
  487.     Goto LABEL039
  488.     :LABEL040
  489.     AnsiPos INTEGER012, INTEGER013
  490.     Color STRING018
  491.     Print STRING021
  492.     Color STRING017
  493.     AnsiPos INTEGER012 - 1, INTEGER013
  494.     Print STRING019
  495.     AnsiPos INTEGER012 + INTEGER014, INTEGER013
  496.     Print STRING020
  497.  
  498.     EndProc
  499.  
  500.  
  501. ;------------------------------------------------------------------------------
  502. ;
  503. ; Usage report (before postprocessing)
  504. ;
  505. ; ■ Statements used :
  506. ;
  507. ;    2       End
  508. ;    35      Color 
  509. ;    83      Goto 
  510. ;    89      Let 
  511. ;    66      Print 
  512. ;    84      If 
  513. ;    2       FOpen 
  514. ;    2       FClose 
  515. ;    8       FGet 
  516. ;    19      FPutLn 
  517. ;    4       Gosub 
  518. ;    3       Return
  519. ;    6       Inc 
  520. ;    5       Dec 
  521. ;    63      AnsiPos 
  522. ;    1       EndProc
  523. ;    1       EndFunc
  524. ;
  525. ;
  526. ; ■ Functions used :
  527. ;
  528. ;    98      +
  529. ;    11      -
  530. ;    72      ==
  531. ;    7       <
  532. ;    7       >
  533. ;    2       ||
  534. ;    19      Len(
  535. ;    6       Left()
  536. ;    5       Right()
  537. ;    9       Chr()
  538. ;    1       InStr()
  539. ;    4       Inkey()
  540. ;    2       Mask_Num()
  541. ;    2       PPEPath()
  542. ;
  543. ;------------------------------------------------------------------------------
  544. ;
  545. ; Analysis flags : No flag
  546. ;
  547. ;------------------------------------------------------------------------------
  548. ;
  549. ; Postprocessing report
  550. ;
  551. ;    0       For/Next
  552. ;    0       While/EndWhile
  553. ;    0       If/Then or If/Then/Else
  554. ;    0       Select Case
  555. ;
  556. ;------------------------------------------------------------------------------
  557. ;                 AEGiS Corp - Break the routines, code against the machines!
  558. ;------------------------------------------------------------------------------
  559.